object frmMain: TfrmMain Left = 279 Top = 224 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'CDmax' ClientHeight = 212 ClientWidth = 409 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = mmnMain OnActivate = FormActivate OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object pnlButton: TPanel Left = 7 Top = 72 Width = 158 Height = 47 BevelInner = bvLowered TabOrder = 2 object spbPlay: TSpeedButton Left = 4 Top = 8 Width = 25 Height = 30 Cursor = crHandPoint Hint = 'Play' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333330333333 3333333333833333333333333003333333333333338833333333333330003333 3333333333888333333333333000033333333333338888333333333330000033 3333333333888883333333333000000333333333338888883333333330000003 3333333333888888333333333000003333333333338888833333333330000333 3333333333888833333333333000333333333333338883333333333330033333 3333333333883333333333333033333333333333338333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = spbPlayClick end object spbStop: TSpeedButton Left = 29 Top = 8 Width = 25 Height = 30 Cursor = crHandPoint Hint = 'Stop' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333000000000 0333333888888888833333300000000003333338888888888333333000000000 0333333888888888833333300000000003333338888888888333333000000000 0333333888888888833333300000000003333338888888888333333000000000 0333333888888888833333300000000003333338888888888333333000000000 0333333888888888833333300000000003333338888888888333333000000000 0333333888888888833333300000000003333338888888888333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = spbStopClick end object spbPause: TSpeedButton Left = 54 Top = 8 Width = 25 Height = 30 Cursor = crHandPoint Hint = 'Pause' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333000033000 0333333888833888833333300003300003333338888338888333333000033000 0333333888833888833333300003300003333338888338888333333000033000 0333333888833888833333300003300003333338888338888333333000033000 0333333888833888833333300003300003333338888338888333333000033000 0333333888833888833333300003300003333338888338888333333000033000 0333333888833888833333300003300003333338888338888333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = spbPauseClick end object spbEject: TSpeedButton Left = 79 Top = 8 Width = 25 Height = 30 Cursor = crHandPoint Hint = 'Eject' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333333000000000 0333333888888888833333300000000003333338888888888333333333333333 3333333333333333333333300000000003333338888888888333333300000000 3333333388888888333333333000000333333333388888833333333333000033 3333333333888833333333333330033333333333333883333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = spbEjectClick end object spbPrev: TSpeedButton Left = 104 Top = 8 Width = 25 Height = 30 Cursor = crHandPoint Hint = 'Previous Track' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333333333003 3333333333333388333333333330300333333333333383883333333333003003 3333333333388388333333333000300333333333338883883333333300003003 3333333338888388333333300000300333333333888883883333333000003003 3333333388888388333333330000300333333333388883883333333330003003 3333333333888388333333333300300333333333333883883333333333303003 3333333333338388333333333333300333333333333333883333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = spbPrevClick end object spbNext: TSpeedButton Left = 129 Top = 8 Width = 25 Height = 30 Cursor = crHandPoint Hint = 'Next Track' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 0400000000000001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333333333333333333003333333 3333333388333333333333300303333333333333883833333333333003003333 3333333388388333333333300300033333333333883888333333333003000033 3333333388388883333333300300000333333333883888883333333003000003 3333333388388888333333300300003333333333883888833333333003000333 3333333388388833333333300300333333333333883883333333333003033333 3333333388383333333333300333333333333333883333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = spbNextClick end end object pnlTimeDisplay: TPanel Left = 7 Top = 2 Width = 158 Height = 69 BevelInner = bvLowered Color = clBlack TabOrder = 3 object lblMode: TLabel Left = 3 Top = 45 Width = 152 Height = 20 Alignment = taCenter AutoSize = False Caption = 'Playing' Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clGreen Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False Layout = tlCenter end object lblTime: TLabel Left = 3 Top = 4 Width = 152 Height = 39 Alignment = taCenter AutoSize = False Caption = '[00] <00:00>' Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clGreen Font.Height = -24 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False Layout = tlCenter end end object pnlTrackBar: TPanel Left = 7 Top = 120 Width = 266 Height = 65 BevelInner = bvLowered TabOrder = 0 object lblScbStart: TLabel Left = 7 Top = 27 Width = 27 Height = 13 Caption = '00:00' ParentShowHint = False ShowHint = True end object lblScbEnd: TLabel Left = 231 Top = 27 Width = 27 Height = 13 Hint = 'Current track length' Caption = '00:00' ParentShowHint = False ShowHint = True end object lblScbPosition: TLabel Left = 119 Top = 27 Width = 27 Height = 13 Caption = '00:00' end object scbMain: TScrollBar Left = 7 Top = 42 Width = 251 Height = 16 Cursor = crHandPoint Hint = 'Track progress / Skip Frwd-Bkwd' ParentShowHint = False ShowHint = True TabOrder = 1 OnScroll = scbMainScroll end object cboTracks: TComboBox Left = 7 Top = 5 Width = 251 Height = 21 Hint = 'Current Track / Playlist' Style = csDropDownList ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = cboTracksClick OnDropDown = ComboBoxDropDown end end object pnlVolume: TPanel Left = 274 Top = 2 Width = 129 Height = 183 BevelInner = bvLowered TabOrder = 1 object cdvMain: TCdVolume Left = 8 Top = 3 Width = 113 Height = 177 SyncDown = False MuteDown = False DeviceItemIndex = -1 end end object pnlStatus: TPanel Left = 0 Top = 193 Width = 409 Height = 19 Align = alBottom BevelOuter = bvNone TabOrder = 4 object sttArtist: TStaticText Left = 0 Top = 2 Width = 4 Height = 4 Hint = 'Artist' BorderStyle = sbsSunken ParentShowHint = False ShowAccelChar = False ShowHint = True TabOrder = 0 end object sttTitle: TStaticText Left = 32 Top = 2 Width = 4 Height = 4 Hint = 'Title' BorderStyle = sbsSunken ParentShowHint = False ShowAccelChar = False ShowHint = True TabOrder = 1 end object sttTrackCnt: TStaticText Left = 348 Top = 2 Width = 4 Height = 4 Hint = 'Playlist track count' BorderStyle = sbsSunken ParentShowHint = False ShowAccelChar = False ShowHint = True TabOrder = 2 end object sttTime: TStaticText Left = 372 Top = 2 Width = 4 Height = 4 Hint = 'Playlist time' BorderStyle = sbsSunken ParentShowHint = False ShowAccelChar = False ShowHint = True TabOrder = 3 end end object pnlTools: TPanel Left = 166 Top = 2 Width = 107 Height = 117 BevelInner = bvLowered TabOrder = 5 object spbOptions: TSpeedButton Left = 3 Top = 90 Width = 54 Height = 21 Cursor = crHandPoint Hint = 'edit options' Caption = '&Options' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True OnClick = mmiOptionClick end object spbRetrieve: TSpeedButton Left = 3 Top = 69 Width = 54 Height = 20 Cursor = crHandPoint Hint = 'retrieve from CDDB' Caption = 'Retrieve' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True OnClick = mmiRetrieveClick end object spbSubmit: TSpeedButton Left = 59 Top = 69 Width = 45 Height = 20 Cursor = crHandPoint Hint = 'submit to CDDB' Caption = 'Submit' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True OnClick = mmiSubmitClick end object spbContents: TSpeedButton Left = 3 Top = 48 Width = 101 Height = 20 Cursor = crHandPoint Hint = 'edit contents' Caption = '&Contents' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True OnClick = spbContentsClick end object spbTimeFormat: TSpeedButton Left = 3 Top = 6 Width = 101 Height = 20 Cursor = crHandPoint Hint = 'change time display' Caption = '&Track Remaining' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True OnClick = spbTimeFormatClick end object spbRepeat: TSpeedButton Left = 3 Top = 27 Width = 101 Height = 20 Cursor = crHandPoint Hint = 'change repeat option' Caption = '&Repeat : Playlist' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True OnClick = spbRepeatClick end object cboDefaultDrive: TComboBox Left = 59 Top = 91 Width = 45 Height = 21 Hint = 'CD drives' Style = csDropDownList ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = cboDefaultDriveClick end end object mmnMain: TMainMenu Left = 51 Top = 168 object mmiFile: TMenuItem Caption = '&File' object mmiRetrieve: TMenuItem Caption = '&Retrieve from CDDB' ShortCut = 116 OnClick = mmiRetrieveClick end object mmiSubmit: TMenuItem Caption = '&Submit to CDDB' ShortCut = 119 OnClick = mmiSubmitClick end object mmiImportExport: TMenuItem Caption = '&Import/Export...' ShortCut = 16457 OnClick = mmiImportExportClick end object mmiSep01: TMenuItem Caption = '-' end object mmiExit: TMenuItem Caption = 'E&xit' ShortCut = 32883 OnClick = mmiExitClick end end object mmiEdit: TMenuItem Caption = '&Edit' object mmiContents: TMenuItem Caption = '&Contents...' ShortCut = 32835 OnClick = spbContentsClick end object mmiOption: TMenuItem Caption = '&Options...' ShortCut = 32847 OnClick = mmiOptionClick end object mmiTimeFont: TMenuItem Caption = 'Time Fo&nt...' ShortCut = 32846 OnClick = mmiTimeFontClick end end object mmiPlayer: TMenuItem Caption = '&Player' object mmiPlay: TMenuItem Caption = '&Play' ShortCut = 16464 OnClick = spbPlayClick end object mmiStop: TMenuItem Caption = '&Stop' ShortCut = 16467 OnClick = spbStopClick end object mmiPause: TMenuItem Caption = 'P&ause' ShortCut = 16449 OnClick = spbPauseClick end object mmiEject: TMenuItem Caption = '&Eject' ShortCut = 16453 OnClick = spbEjectClick end object mmiNext: TMenuItem Caption = '&Next' ShortCut = 16462 OnClick = spbNextClick end object mmiPrev: TMenuItem Caption = 'P&revious' ShortCut = 16466 OnClick = spbPrevClick end end object mmiHelp: TMenuItem Caption = '&Help' object mmiWebPage: TMenuItem Caption = '&CDmax Web Page...' OnClick = mmiWebPageClick end object mmiSetDefaultPlayer: TMenuItem Caption = '&Set Default Player...' OnClick = mmiSetDefaultPlayerClick end object mmiAbout: TMenuItem Caption = '&About...' OnClick = mmiAboutClick end end end object traMain: TTrayIcon Icon.Data = {} Enabled = False PopupMenu = pmnMain AutoShow = True Left = 79 Top = 168 end object pmnMain: TPopupMenu Left = 107 Top = 168 object pmiRestore: TMenuItem Caption = 'View Player' OnClick = pmiRestoreClick end object pmiSep01: TMenuItem Caption = '-' end object pmiContents: TMenuItem Caption = 'Contents...' OnClick = spbContentsClick end object pmiOptions: TMenuItem Caption = 'Options...' OnClick = mmiOptionClick end object pmiSep04: TMenuItem Caption = '-' end object pmiRetrieve: TMenuItem Caption = 'Retrieve...' OnClick = mmiRetrieveClick end object pmiSubmit: TMenuItem Caption = 'Submit...' OnClick = mmiSubmitClick end object pmiSep03: TMenuItem Caption = '-' end object pmiPlay: TMenuItem Caption = '&Play' OnClick = spbPlayClick end object pmiStop: TMenuItem Caption = '&Stop' OnClick = spbStopClick end object pmiPause: TMenuItem Caption = 'P&ause' OnClick = spbPauseClick end object pmiEject: TMenuItem Caption = '&Eject' OnClick = spbEjectClick end object pmiPrev: TMenuItem Caption = 'P&revious Track' OnClick = spbPrevClick end object pmiNext: TMenuItem Caption = '&Next Track' OnClick = spbNextClick end object pmiSep02: TMenuItem Caption = '-' end object pmiExit: TMenuItem Caption = 'Shutdown' OnClick = mmiExitClick end end object inoMain: TIniOut Items.Strings = ( 'frmMain;Left;0;Software\Tisdale\CDmax\frmMain;Left;1;0' 'frmMain;Top;0;Software\Tisdale\CDmax\frmMain;Top;1;0' 'lblTime;Font;1|clGreen|-24|MS Sans Serif|fpDefault|18|[];Softwar' + 'e\Tisdale\CDmax\frmMain\lblTime;Font;1;0' 'cdvMain;MuteDown;False;Software\Tisdale\CDmax\frmMain\cdvMain;Mu' + 'teDown;1;0' 'cdvMain;SyncDown;False;Software\Tisdale\CDmax\frmMain\cdvMain;Sy' + 'ncDown;1;0' 'cboDefaultDrive;Items;;Software\Tisdale\CDmax\frmMain\cboDefault' + 'Drive;Items;1;0' 'cdvMain;DeviceItemIndex;0;Software\Tisdale\CDmax\frmMain\cdvMain' + ';DeviceItemIndex;1;0') RegistryRoot = CURRENT_USER Left = 135 Top = 168 end object fdlMain: TFontDialog Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Options = [fdAnsiOnly, fdEffects] Left = 163 Top = 168 end end